****
** Replication File:
**
** Who Supports QAnon? A Case Study in Political Extremism
**
** October 2020 Data
****

set more off

* Set working directory

* Open data
use "Clean Data, October 2020.dta"

********************************************************************************

****
** Reliability information in
** Appendix
****

* Conspiratorial thinking
alpha con1-con4
sum conthink

* Machiavellianism
alpha manip1-manip4
sum manipulate

* Narcissism
alpha attent1-attent4
sum narcissism

* Psychopathy
alpha insens1-insens4
sum sociopathy

* Dark triad
alpha manip1-manip4 attent1-attent4 insens1-insens4
sum darktriad

****
** Table A11
****

sum age, detail
tab edu
tab female
tab income
tab white
tab black
tab hispanic

****
** Table A12
****

reg believer2 pid2 pidsq2 edu2 attend2 ///
	age2 income2 female black hispanic 
est sto mod1
reg believer2 conthink2 darktriad2 falseinfo2 violence2 pid2 pidsq2 ///
	edu2 attend2 age2 income2 female black hispanic 
est sto mod2

reg believer2 ideo2 ideosq2 edu2 attend2 ///
	age2 income2 female black hispanic 
est sto mod3
reg believer2 conthink2 darktriad2 falseinfo2 violence2 ///
	ideo2 ideosq2 edu2 attend2 age2 income2 female black hispanic 
est sto mod4

estout mod1 mod2 mod3 mod4, cells(b(star fmt(3)) se(par fmt(3))) ///
   legend label varlabels(_cons constant) stats(r2 N, fmt(3 0 1))	
	
estimates table mod1 mod2 mod3 mod4, ///
	b(%10.3f) se(%10.3f) stats(r2 N)   

putdocx begin
putdocx table tbl1 = etable, width(100%)
putdocx save reg2020-2.docx, replace

clear


